home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / surfsrc3.zip / INITIAL.INC < prev    next >
Text File  |  1991-11-20  |  1KB  |  78 lines
  1. procedure INITIAL;
  2. { Initialize global variables; read in the data file if specified on
  3.   the command line.
  4. }
  5.  
  6. begin
  7. {$ifdef DEBUG}
  8.   assign(Dbgfile, 'SURFMODL.DBG');
  9.   rewrite(Dbgfile);
  10. {$endif}
  11.   { Initialize all the parameters that not get set in readcfg: }
  12.   Xeye := 100.0;
  13.   Yeye := -70.0;
  14.   Zeye := 75.0;
  15.   Xfocal := 0.0;
  16.   Yfocal := 0.0;
  17.   Zfocal := 0.0;
  18.   Nlite := 1;
  19.   Xlite[1] := 100.0;
  20.   Ylite[1] := 30.0;
  21.   Zlite[1] := 0.0;
  22.   Intensity[1] := 0.7;
  23.   Magnify := 1.0;
  24.   Viewtype := 0;
  25.   Interpolate := FALSE;
  26.   Epsilon := 0.3;
  27.   Shadowing := FALSE;
  28.   XYadjust := 1.0;
  29.   Showaxes := 0;
  30.   Xaxislen := 0.2;
  31.   Yaxislen := 0.2;
  32.   Zaxislen := 0.2;
  33.   ShowAllBorders := 0;
  34.   Axiscolor := 1;
  35.   Nwindow := 1;
  36.   Textcol := 1;
  37.   BGcol := 0;
  38.   Graphcol := 1;
  39.   RevVideo := FALSE;
  40.   ShowTitle := FALSE;
  41.   Nsurf := 0;
  42.   Nnodes := 0;
  43.   Nmatl := 0;
  44.   Lastplot := 0;
  45.  
  46.   Filemask := ' ';
  47.   Inifile := ' ';
  48. {$ifndef PLAYPAL }
  49.   Save_cmmd := '';
  50. {$endif}
  51.   Viewchanged := TRUE;
  52.  
  53.   Fileread := FALSE;
  54.  
  55. {$ifndef INICVT}
  56.  
  57. {$ifdef USE_IFF}
  58.   readcfg ('SURFIFF.CFG', TRUE);
  59. {$else}
  60.   readcfg ('SURFMODL.CFG', TRUE);
  61. {$endif}
  62.  
  63.   setsys;
  64.  
  65. {$ifndef PLAYPAL}
  66.   case paramcount of
  67.     4..50: begin
  68.       writeln ('usage: SURFMODL [filename] [menu choice]');
  69.       halt;
  70.     end;
  71.     1,2,3: readfile (paramstr(1));
  72.   end;  {case paramcount}
  73. {$endif} {PLAYPAL}
  74.  
  75. {$endif} {INICVT}
  76.  
  77. end;  { procedure INITIAL }
  78.